home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / CADAR / CSound / print-csound < prev    next >
Lisp/Scheme  |  1998-10-25  |  866b  |  37 lines
  1. print-csound 
  2. filename gens instrument type end? &rest p-fields
  3.  
  4. Creates a file with name -> filename
  5. to be used as a score-file in Csound.
  6.  
  7. type can be :append :overwrite
  8.  
  9. ex:
  10. (setq starts '(0 1 2 3 4 5 6))
  11. (setq lengths '(1 1 2 1 1 2 1))
  12. (setq amplitudes '(8000 5000 12000 8000 6000 2000 5000))
  13. (setq pitch '(440 550 660 770 880 990 1100))
  14.  
  15. (print-CSound 
  16. "ccl:test.sco"
  17.  '((f1 0 4096 10 1 0.5 0.1))
  18. 'i1 
  19. :overwrite ;overwrites if file already exists
  20.  nil ;does not add endin
  21. starts lengths amplitudes pitch)
  22.  
  23.  
  24. (setq starts2 '(0 0.5 2.5 3.2 4.3 5.1 6.8))
  25. (setq lengths2 '(0.5 0.5 0.5 0.5 0.5 0.5 0.5))
  26. (setq amplitudes2 '(5000 6000 7000 6000 6000 10000 5000))
  27. (setq pitch2 '(335 445 555 665 775 885 995))
  28.  
  29.  
  30. (print-CSound 
  31. "ccl:test.sco" 
  32. nil ;only needs gens once in the file
  33. 'i1 
  34. :append ;adds to existing file 
  35. t ;adds endin
  36. starts2 lengths2 amplitudes2 pitch2)
  37.